Below is the plotly code for scatter graph for top 100 universities that shows their citations and rankings.
fig <- top_univ %>%
plot_ly(y = ~citations, x = ~ranking,
text=~university_name, hoverinfo="text") %>%
add_markers(color = ~country,
colors=mycolors,frame = ~year)
fig
Use the right arrow to view the next slide.